--Versions Edit Test

tell application "Finder"
	set kbArticle to paragraphs of (read (choose file with prompt "Select text file containing Patch Listing"))
end tell

repeat with kbLine in kbArticle
	if length of kbLine is greater than 0 then
		
		--display dialog kbLine -- Remove comment from beginning of this line to test
		
		set the clipboard to kbLine
		
		tell application "Bento"
			activate
		end tell
		
		tell application "System Events"
			keystroke tab
			keystroke "a" using {command down}
			keystroke "v" using {command down}
			delay 1.5
			keystroke tab
			keystroke (ASCII character 31)
		end tell
	end if
end repeat

tell application "System Events"
	keystroke (ASCII character 13)
end tell

delay 2

tell application "repeatKB" to activate

beep 3

display dialog "Import Complete"